www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Model\ComponentLabels\多行多列批量输入框控件\do_edit_mode_label.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:$doeditmode$-ComponentLabel-$$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:cangsx,多行多列输入框配置参数$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:在修改页的处理页里的标签$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%><%



cvva=split($xxvar$cangsx,"|$aspcpu_f$|")
cvva_0=cvva(0)
cvva_0_p=split(cvva_0,",")

'多行多列批量输入框的初始行数
cvva_0_p_1=cvva_0_p(0)
'多行多列批量输入框的最大行数(不填则无限制)
cvva_0_p_2=cstr(cvva_0_p(1)&"")
'是否允许删除某行
cvva_0_p_3=cstr(cvva_0_p(2)&"")
if cvva_0_p_3="" then cvva_0_p_3="0"
if cvva_0_p_2="" then cvva_0_p_2="0"





cvva_1=cvva(1)
cvva_1_p=split(cvva_1,"|$aspcpu_g$|")


if trim(cvva_1)="" then
pllentt=0
else
pllentt=ubound(cvva_1_p)+1


redim liesxx(pllentt+1,4)

for plniii=1 to pllentt
cvva_1_p_1=cvva_1_p(plniii-1)
cvva_1_p_1_p=split(cvva_1_p_1,"|$aspcpu_r1$|")


'列参数
cangsxx=cvva_1_p_1_p(0)
'列名
lienamex=cvva_1_p_1_p(1)
'列类型
pzd_typex=cvva_1_p_1_p(2)
'字段次序
pcixux=cvva_1_p_1_p(3)

liesxx(plniii-1,0)=cangsxx
liesxx(plniii-1,1)=lienamex
liesxx(plniii-1,2)=pzd_typex
liesxx(plniii-1,3)=pcixux


next

'进行 列排序
liesxxpl=paixu_a(liesxx,pllentt-1,3,3)

%>




<%


if isnumeric(request("$post$myname$_len_pl"))<>true then
hang_ss=0
else
hang_ss=clng(request("$post$myname$_len_pl"))
end if


valueskk=""
doeeeee=0
'行
for hang_i=1 to hang_ss


'------------


novaaa=1
for plniii2a=1 to pllentt
if cstr(request("$post$myname$_l"&cstr(plniii2a)&"_h"&cstr(hang_i))&"")<>"" then
novaaa=0
exit for
end if

next

if novaaa=0 then

'列
for plniii2=1 to pllentt



cangsxx=liesxxpl(plniii2-1,0)
lienamex=liesxxpl(plniii2-1,1)
pzd_typex=liesxxpl(plniii2-1,2)
pcixux=liesxxpl(plniii2-1,3)


'--------------------------
'当前行当前列值:
values_1=request("$post$myname$_l"&cstr(plniii2)&"_h"&cstr(hang_i))





'----
if clng(pzd_typex)=1 then 

if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(2))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(2))="") then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"
end if
if cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")<>"" then
if clng(len(cstr(values_1)))>clng(split(cangsxx,"|$aspcpu_a$|")(0)) then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"最大不能超过"&cstr(split(cangsxx,"|$aspcpu_a$|")(0))&"个字符的长度!\n"
end if
end if

end if

'--------

if clng(pzd_typex)=2 then 

if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(1))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(1))="") then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"
end if


if cstr(values_1)<>"" and isdate(cstr(values_1))<>true then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"必须为时间的格式,比如2008-9-9 15:32:11或2008-9-9\n"

end if


end if

'---------


if clng(pzd_typex)=3 then 


if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(4))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(4))="")  then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"
end if

if values_1<>"" then

if isnumeric(values_1)=true then



if cdbl(clng(values_1))<>cdbl(values_1) and (cstr(split(cangsxx,"|$aspcpu_a$|")(2))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(2))="") then

$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为小数!\n"

else


if cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")<>"" then
if cdbl(values_1)<cdbl(split(cangsxx,"|$aspcpu_a$|")(0)&"") then

$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 不能小于"&cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")&"!\n"

end if
end if




if cstr(split(cangsxx,"|$aspcpu_a$|")(1)&"")<>"" then
if cdbl(values_1)>cdbl(split(cangsxx,"|$aspcpu_a$|")(1)&"") then

$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 不能大于"&cstr(split(cangsxx,"|$aspcpu_a$|")(1)&"")&"!\n"

end if
end if

end if



else
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 只能输入数字!\n"



end if

end if



end if

'---------

if clng(pzd_typex)=4 then 


if values_1="" and  (cstr(cangsxx&"")="")   then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"
end if

if values_1<>"" then
if IsValidEmail(values_1)<>true then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 输入的email的格式错误!\n"
end if
end if



end if
'---------
if clng(pzd_typex)=5 then 


if values_1="" and   (cstr(cangsxx&"")="")  then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"
end if

if values_1<>"" then
Set RegEx = New RegExp 
RegEx.IgnoreCase =True 
RegEx.Pattern = "^[0-9\-]{11,16}$" 
if RegEx.test(values_1)<>true then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"的手机号格式错误!\n"
end if
Set RegEx =nothing
end if


end if

'---------
if clng(pzd_typex)=6 then 
if values_1="" and   (cstr(cangsxx&"")="")  then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"

end if

if values_1<>"" then
Set RegEx = New RegExp 
RegEx.IgnoreCase =True 
RegEx.Pattern = "(^(\d{11})$|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\+{0,1})(\d{2,4})-(\d{4}|\d{3})-(\d{7,8})|(\+{0,1})(\d{2,4})-(\d{4}|\d{3})-(\d{7,8})-(\d{1,4}))$)"
if RegEx.test(values_1)<>true then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"的电话号码格式错误!\n"
end if
Set RegEx =nothing

end if
end if

'--------------------------


'---------
if clng(pzd_typex)=7 then 
if values_1="" and  (cstr(split(cangsxx,"|$aspcpu_a$|")(2))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(2))="")  then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"
end if

if cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")<>"" then
if clng(len(cstr(values_1)))>clng(split(cangsxx,"|$aspcpu_a$|")(0)&"") then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"最大不能超过"&cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")&"个字符的长度!\n"
end if
end if



if values_1<>"" then
Set RegEx = New RegExp 
RegEx.IgnoreCase =True 
RegEx.Pattern = "^[a-zA-Z0-9_]{1,}$"
if RegEx.test(values_1)<>true then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 的格式错误,只能为26个英文字母和数字及_号的组合!\n"
end if
Set RegEx =nothing


end if
end if

'--------------------------

if clng(pzd_typex)=8 then 
if values_1="" and   (cstr(cangsxx&"")="")  then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n"

end if

if values_1<>"" then
Set RegEx = New RegExp 
RegEx.IgnoreCase =True 
RegEx.Pattern =  "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
if RegEx.test(values_1)<>true then
$page$is$vaild$=0
$page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"的网址格式错误,必须带http://!\n"
end if
Set RegEx =nothing

end if

end if

'--------------------------

valueskk=valueskk&values_1&"|nd_aspcpu_fenge_pl_lie_do_lie_x|"


next


if pllentt>=1 then
valueskk=left(valueskk,len(valueskk)-len("|nd_aspcpu_fenge_pl_lie_do_lie_x|"))
end if



'---22
doeeeee=1
valueskk=valueskk&"|nd_aspcpu_fenge_pl_lie_do_hang_x|"

end if
'---22


next



'---22
if doeeeee=1 then 

valueskk=left(valueskk,len(valueskk)-len("|nd_aspcpu_fenge_pl_lie_do_hang_x|"))

end if


%>

<%

$mysave$value$=valueskk

end if
%>